Set NewSystem$Dir <Obey$Dir>

| Drop new !Run / !Boot files in if necessary and create new structure
|
IfThere <System$Dir>.SysPaths Then Set NewSysNeeded 0 Else Set NewSysNeeded 1
If "<NewSysNeeded>"="1" Then Copy <NewSystem$Dir>.NewSystem <System$Dir> ~A~C~DF~L~N~P~Q~R~S~T~V
If "<NewSysNeeded>"="1" Then CDir <System$Dir>.310
If "<NewSysNeeded>"="1" Then CDir <System$Dir>.350
If "<NewSysNeeded>"="1" Then CDir <System$Dir>.360
If "<NewSysNeeded>"="1" Then CDir <System$Dir>.370
If "<NewSysNeeded>"="1" Then CDir <System$Dir>.310.Modules
If "<NewSysNeeded>"="1" Then CDir <System$Dir>.350.Modules
If "<NewSysNeeded>"="1" Then CDir <System$Dir>.360.Modules
If "<NewSysNeeded>"="1" Then CDir <System$Dir>.370.Modules
If "<NewSysNeeded>"="1" Then Filer_Run <System$Dir>.!Run
Unset NewSysNeeded

| Tidy up wrongly-installed Toolbox modules
|
IfThere <System$Dir>.Modules.350.Toolbox.Toolbox Then Copy <System$Dir>.Modules.350.Toolbox <System$Dir>.310.Modules.Toolbox A~CDFN~P~QR~S~T~V
IfThere <System$Dir>.Modules.360.Toolbox.Toolbox Then Copy <System$Dir>.Modules.360.Toolbox <System$Dir>.310.Modules.Toolbox A~CDFN~P~QR~S~T~V
IfThere <System$Dir>.Modules.370.Toolbox.Toolbox Then Copy <System$Dir>.Modules.370.Toolbox <System$Dir>.310.Modules.Toolbox A~CDFN~P~QR~S~T~V

Error 0 Your !System structure is now guaranteed to be up-to-date.
